(doctor-doc): Add period.

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 3c8f8eadb47ab3a41c564ac56955a0e33eb44cef..ff03de852ff532c3d729c83770e25c660210d589 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -885,7 +885,7 @@ Otherwise call the Doctor to parse preceding sentence."
 (defun doctor-doc (sent)
   (cond
    ((equal sent '(foo))
-    (doctor-type '(bar! ($ please)($ continue))))
+    (doctor-type '(bar! ($ please)($ continue) \.)))
    ((member sent howareyoulst)
     (doctor-type '(i\'m ok \.  ($ describe) yourself \.)))
    ((or (member sent '((good bye) (see you later) (i quit) (so long)